home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aau.d64 / effects (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  136 lines
  1. 10 POKE53281,11:POKE53280,6
  2. 20 PRINT"[147] ";:FORI=1TO38:PRINT"[154] ";:NEXT:PRINT:PRINT"[145]"
  3. 30 FORI=1TO21:PRINT"  [146]                                     [146]":NEXT
  4. 40 PRINT" ";:FORI=1TO38:PRINT" ";:NEXT
  5. 50 PRINT""
  6. 60 PRINT"   S P E C I A L  E F F E C T S"
  7. 70 PRINT"[153][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
  8. 80 PRINT"[145][145] WRITTEN AND COMPILED BY  [159]DIGIDAN"
  9. 90 PRINT"[158] 1[146]  SUPER CURSOR"
  10. 100 PRINT" 2[146]  FROG CROAKS"
  11. 110 PRINT" 3[146]  OCEAN SOUND"
  12. 120 PRINT" 4[146]  SCREEN TRICK"
  13. 130 PRINT" 5[146]  COMPU-QUAKE"
  14. 140 PRINT" 6[146]  ROLLIN' WAVES"
  15. 150 PRINT" 7[146]  FADE IN/OUT"
  16. 151 PRINT" 8[146]  SCREEN TRICK II"
  17. 152 PRINT" 9[146]  KLAWRETAW"
  18. 153 PRINT" 10[146] FORTUNE TELLER"
  19. 154 PRINT" 11[146] CRAZY"
  20. 155 PRINT" 12[146] ESP"
  21. 700 PRINT"WHICH NUMBER";:INPUTN
  22. 710 IF N=1 THEN 800
  23. 720 IF N=2 THEN 850
  24. 730 IF N=3 THEN 900
  25. 740 IF N=4 THEN 950
  26. 750 IF N=5 THEN 1000
  27. 760 IF N=6 THEN 1050
  28. 770 IF N=7 THEN 1100
  29. 780 IF N=8 THEN 1150
  30. 782 IF N=9 THEN 1200
  31. 783 IF N=10 THEN 1250
  32. 784 IF N=11 THEN 1300
  33. 785 IF N=12 THEN 1350
  34. 799 IF N<1ORN>20THEN10
  35. 800 PRINT"[147]S U P E R  C U R S O R"
  36. 810 PRINT"WOULD YOU LIKE TO SEE A:"
  37. 815 PRINT"[158]A[146] SUPER FAST":PRINT"[158]B[146] SUPER SLOW"
  38. 820 PRINT"CURSOR?"
  39. 822 GETA$:IFA$="A"THEN POKE56325,0
  40. 824 IF A$=""THEN822
  41. 826 IF A$="B"THEN POKE56325,255
  42. 830 PRINT"WOW! PRESS RETURN TO GET TO MENU":POKE19,65:INPUT"";A$
  43. 840 POKE56325,58:POKE19,0:GOTO10
  44. 850 PRINT"[147]F R O G  C R O A K S"
  45. 860 PRINT""
  46. 861 PRINT"                  [169][146][215][215][223][146]"
  47. 862 PRINT"                   [192][192]  [146]"
  48. 863 PRINT"                 [221]    [221] [146]"
  49. 864 PRINT"                [223][221]    [221][146][169]"
  50. 865 PRINT"                [184][183] [163][163] [183][184]"
  51. 866 PRINT"PRESS ANY KEY TO RETURN TO MENU":D=16:A=54272:POKEA+24,15:POKEA+6,0
  52. 867 POKE A+1,100:POKEA+5,2
  53. 868 GETA$:IFA$<>""THEN10
  54. 869 IF(PEEK(162)ANDD)=DTHENPOKEA+4,33:PRINT"   "
  55. 870 POKEA+4,0:PRINT"[192][192]":GOTO868
  56. 900 PRINT"[147]O C E A N  S O U N D S"
  57. 910 PRINT"PRESS ANY KEY TO RETURN TO MENU"
  58. 920 PRINT"BEFORE YOU GET A SUNBURN"
  59. 922 V=54272:POKEV+6,240:POKEV+4,129:POKEV+1,34:POKEV,75
  60. 924 FORA=1TO15:POKEV+24,A:FORD=1TO50:NEXT:NEXT
  61. 926 FORB=15TO1STEP-1:POKEV+24,B:FORD=1TO200:NEXT:NEXT
  62. 928 FORD=1TO600+1200*RND(0):NEXT
  63. 930 GETA$:IFA$<>""THENPOKE54273,0:GOTO10
  64. 940 GOTO 922
  65. 950 PRINT"[147]S C R E E N  T R I C K"
  66. 960 PRINT"PRESS ANY KEY TO RETURN TO MENU":FORI=1TO1000:NEXT:POKE53296,1
  67. 970 POKE53280,0:POKE53281,6:GETA$:POKE53280,6:POKE53281,0:IFA$<>""THEN985
  68. 980 GOTO970
  69. 985 POKE53296,0:GOTO10
  70. 1000 PRINT"[147]   C O M P U - Q U A K E"
  71. 1010 PRINT"   PRESS ANY KEY TO RETURN TO MENU"
  72. 1020 X=INT(RND(1)*7+1)+20:Y=INT(RND(1)*7+1)+20
  73. 1030 POKE53265,X:POKE53270,Y:GETA$
  74. 1040 IF A$<>""THENPOKE53265,27:POKE53270,200:GOTO10
  75. 1045 GOTO 1020
  76. 1050 PRINT"[147]R O L L I N '  W A V E S"
  77. 1060 PRINT"PRESS ANY KEY TO START -"
  78. 1070 PRINT"THEN PRESS ANY KEY TO RETURN TO MENU"
  79. 1080 GETA$:IFA$=""THEN1080
  80. 1090 POKE53281,6:PRINT"[183][196][192][210][192][196][183]";:GETA$:IFA$=""THEN1090
  81. 1091 GOTO 10
  82. 1100 PRINT"[147]F A D E  I N / O U T"
  83. 1102 PRINT"PRESS ANY KEY TO RETURN TO MENU"
  84. 1104 A$="              FADE EXAMPLE   ":POKE53281,0
  85. 1106 B$(1)="[151]":B$(2)="[152]":B$(3)="[155]":B$(4)="":B$(5)="[155]":B$(6)="[152]"
  86. 1107 B$(7)="[155]":B$(8)="[144]":FORI=1TO8:PRINT"";B$(I);A$:FORT=1TO100:NEXT:NEXT
  87. 1108 GETZ$:IFZ$<>""THEN10
  88. 1109 FORY=1TO500:NEXT:GOTO1106
  89. 1150 PRINT"[147]S C R E E N  T R I C K  I I"
  90. 1152 PRINT"PRESS ANY KEY TO RETURN TO MENU"
  91. 1153 PRINT"PRESS SHIFT/LOCK TO REVERSE DIRECTION"
  92. 1156 FORI=0TO15:POKE53281,0:POKE53281,I:NEXT:GETA$:IFA$<>""THEN 1170
  93. 1158 FORI=0TO15:POKE53281,0:POKE53281,I:NEXT:GETA$:IFA$<>""THEN1170
  94. 1160 FORI=0TO15:POKE53281,0:POKE53281,I:NEXT:GETA$:IFA$<>""THEN1170
  95. 1162 FORI=0TO15:POKE53281,0:POKE53281,I:NEXT:GETA$:IFA$<>""THEN1170
  96. 1164 FORI=1TO15:POKE53281,0:POKE53281,I:NEXT:GETA$:IFA$<>""THEN1170
  97. 1166 GOTO 1156
  98. 1170 GOTO 10
  99. 1200 PRINT"[147]K L A W R E T A W"
  100. 1202 PRINT"PRESS ANY KEY TO RETURN TO MENU"
  101. 1204 A$="KLAWRETAW":FORA=9TO5STEP-1:B$=B$+MID$(A$,A,1):NEXT:B$=B$+B$+B$+B$
  102. 1206 FORA=4TO1STEP-1:C$=C$+MID$(A$,A,1):NEXT
  103. 1208 PRINT"[158]"CHR$(17)B$B$:FORJ=1TO35:PRINT""TAB(J)C$;:FORK=1TO5
  104. 1210 GETF$:IFF$<>""THEN 10
  105. 1212 PRINTCHR$(157):NEXT:PRINTTAB(J-1)CHR$(145)" ":FORL=1TO100:NEXT:NEXT
  106. 1214 GOTO 1208
  107. 1250 PRINT"[147]F O R T U N E  T E L L E R"
  108. 1252 PRINT"PRESS ANY KEY TO RETURN TO MENU"
  109. 1254 FORN=1TO10:READA$(N),B$(N),C$(N),D$(N):NEXT:S$=CHR$(32)
  110. 1256 DEFFNA(X)=INT(RND(0)*10+1)
  111. 1258 A=FNA(X):B=FNA(X):C=FNA(X):D=FNA(X)
  112. 1260 PRINT "[159]";S$A$(A)S$B$(B)S$C$(C)S$D$(D)
  113. 1262 DATA THEY,WILL,FIND,HER,HE,WON'T,EXPOSE,PLANS
  114. 1264 DATA RIVAL,DID,IGNORE,CONSEQUENCES,STRANGER,MIGHT,LOVE,YOU
  115. 1266 DATA SHE,MIGHTN'T,ADMIRE,ANOTHER,YOU,DIDN'T,KNOW,THEM
  116. 1268 DATA FAMILY,CAN'T,PROTECT,US,WE,CAN,DENY,IT
  117. 1270 DATA CHILD,MAY,DESPISE,MONEY,SUPERIOR,COULD,ACCEPT,HIM
  118. 1275 GETA$:IFA$<>""THEN10
  119. 1280 FORI=1TO1500:NEXT:GOTO1256
  120. 1300 PRINT"[147]C R A Z Y"
  121. 1310 PRINT"PRESS ANY KEY TO RETURN TO MENU"
  122. 1320 A=INT(RND(1)*255+1):PRINT""+CHR$(A);:PRINTCHR$(142);
  123. 1322 GETA$:IFA$<>""THEN10
  124. 1324 C=INT(RND(1)*16+1):D=INT(RND(1)*16+1)
  125. 1325 X=INT(RND(1)*5+1):IFX=1THENPRINT"[157][157][157][157][157][157][148][148][148][148][148][148][148][148][148][148][148][148][157][157][157][157]^"
  126. 1326 POKE53280,C:POKE53281,D:POKE53280,12:POKE53281,11
  127. 1327 IF X=1THENPOKE53296,1:POKE53296,0
  128. 1328 GOTO1320
  129. 1350 PRINT"[147]E S P":FORI=1TO1000:NEXT
  130. 1360 GETA$:IFA$<>"/"THEN1370
  131. 1362 PRINT"[153]HELLO FRIEND! PRESS X TO EXIT!"
  132. 1364 GETA$:IFA$="X"THEN10
  133. 1365 GOTO 1364
  134. 1370 PRINT"[150]BEGONE! I DO NOT KNOW YOU!"
  135. 1380 FORI=1TO1000:NEXT:GOTO10
  136.